home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
tegl6b.zip
/
INTROPAK.EXE
/
lha
/
HIDESHOW.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-05
|
477b
|
34 lines
{-- This program shows how a image can be moved around behind }
{-- another image(s).}
Uses
TEGLIntr,
TEGLUnit,
TEGLMenu,
TEGLMain;
VAR fs : ImageStkPtr;
BEGIN
EasyTEGL;
EasyOut;
PushImage(1,1,100,100);
ShadowBox(1,1,100,100);
fs := StackPtr;
PushImage(50,50,150,150);
ShadowBox(50,50,150,150);
WHILE Mouse_Buttons = 0 DO;
HideImage(fs);
ShowImage(fs,fs^.x+100,fs^.y+100);
TEGLSupervisor;
END.